﻿Public Class armaRelatorioVO

    Private _id_arma_relatorio As Integer
    Private _id_registro As Integer
    Private _data_registro As Date
    Private _id_arma As Integer
    Private _id_calibre As Integer
    Private _eficiente As Boolean
    ' MÉTODO CONSTRUTOR SEM PARAMETROS
    '-------------------------------------

    Sub New()
        _id_arma_relatorio = Nothing
        _id_registro = Nothing
        _data_registro = Nothing
        _id_arma = Nothing
        _id_calibre = Nothing
        _eficiente = Nothing
    End Sub

    '-------------------------------------
    ' MÉTODO CONSTRUTOR COM PARAMETROS
    '-------------------------------------

    Sub New(ByVal id_arma_relatorio As Integer, _
            ByVal id_registro As Integer, _
            ByVal data_registro As Date, _
            ByVal id_arma As Integer, _
            ByVal id_calibre As Integer, _
            ByVal eficiente As Boolean)

        _id_arma_relatorio = id_arma_relatorio
        _id_registro = id_registro
        _data_registro = data_registro
        _id_arma = id_arma
        _id_calibre = id_calibre
        _eficiente = eficiente

    End Sub

    Public Property ID_ARMA_RELATORIO As Integer
        Get

            Return _id_arma_relatorio

        End Get
        Set(ByVal value As Integer)

            _id_arma_relatorio = value

        End Set
    End Property

    Public Property ID_REGISTRO() As Integer
        Get
            Return _id_registro
        End Get
        Set(ByVal value As Integer)

            _id_registro = value
        End Set
    End Property

    Public Property DATA_REGISTRO() As Date
        Get
            Return _data_registro
        End Get
        Set(ByVal value As Date)

            _data_registro = value
        End Set
    End Property
    Public Property ID_ARMA() As Integer
        Get
            Return _id_arma
        End Get
        Set(ByVal value As Integer)

            _id_arma = value
        End Set
    End Property
    Public Property ID_CALIBRE() As Integer
        Get
            Return _id_calibre
        End Get
        Set(ByVal value As Integer)

            _id_calibre = value
        End Set
    End Property
    Public Property EFICIENTE() As Boolean
        Get
            Return _eficiente
        End Get
        Set(ByVal value As Boolean)

            _eficiente = value
        End Set
    End Property
   End Class
